home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview91.zip / OFFLINE.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-11  |  2KB  |  81 lines
  1. program offline;
  2. { This will do the various sorts of computations you might want to do with
  3. your data base but while not playing.  You might plan itineraries, identify
  4. defensible structures, identify areas of control, spot high traffic areas, 
  5. and so on. }
  6.  
  7. {$I headers.inc}
  8.  
  9. var {globals}
  10.   space     : TheVoid;
  11.   BBSname   : string;
  12.   quit      : boolean;
  13.   distances : distancearray;
  14.   verbose   : boolean;
  15.  
  16. {$I misc.inc }
  17. {$I GSDATA.INC }
  18. {$I queue.inc }
  19. {$I distance.inc }
  20. {$I decount.inc }
  21. {$I control.inc }
  22. {$I basepath.inc }
  23. {$I status.inc }
  24. {$I textdisp.inc }
  25. {$I hitrffic.inc }
  26. {$I statistc.inc }
  27. {$I tour.inc }
  28. {$I multpath.inc }
  29.  
  30. procedure menu;
  31. begin
  32.   writeln;
  33.   writeln('<C>ontrolled sector status');
  34.   writeln('<D>ead end analysis');
  35.   writeln('suggest <E>therprobe targets');
  36.   writeln('visit <M>ultiple sectors efficiently');
  37.   writeln('<Q>uit');
  38.   writeln('<S>tellar dispersion');
  39.   writeln('<T>raffic area analysis');
  40.   writeln('<V>isit every sector');
  41.   writeln;
  42. end; {menu}
  43.  
  44. function choice : char;
  45. var
  46.   ch : char;
  47. begin
  48.   write('(', BBSName, ') [C, D, E, Q, S, T, V] Your choice?  ');
  49.   readln( ch );
  50.   choice := upcase( ch );
  51. end;
  52.  
  53. begin
  54.   writeln('Tradewars Offline Data Base Inquiry program: ', version);
  55.   writeln( author );
  56.   writeln( source );
  57.   writeln;
  58.   Quit := false;
  59.   verbose := false;
  60.   InitSpace( Space );
  61.   if paramcount > 0 then
  62.     BBSName := paramstr( 1 )
  63.   else
  64.     BBSName := '';
  65.   GetData( Space, BBSName );
  66.   menu;
  67.   repeat
  68.     case choice of
  69.       'C' : Control;
  70.       'D' : DeadEndAnalysis;
  71.       'E' : SuggestEtherProbes;
  72.       'M' : MultiPassSector;
  73.       'Q' : quit := true;
  74.       'S' : StellarDispersion;
  75.       'T' : HighTraffic;
  76.       'V' : VisitEverySector;
  77.     else
  78.       menu;
  79.     end; {case}
  80.   until quit;
  81. end.